1000 :
1001 DEFine PROCedure Set_Screen (text)
1002 WINDOW 512,256,0,0:PAPER 0:CLS
1003 WINDOW 460,26,28,10: PAPER 2: CLS
1004 CSIZE 2,1: OVER 1
1005 FOR x=0 TO 4
1006   INK 0+4*(x>2): CURSOR 230-INT(12*LEN(text)/2)-x,5-x
1007   PRINT text;
1008 END FOR x
1009 OVER 0:CSIZE 2,0:INK 0
1010 CURSOR 5,2:PRINT "  @ 1986";
1011 CURSOR 5,12:PRINT "D.J.Walker";
1012 CURSOR 360,2:PRINT "Release";
1013 CURSOR 384,12:PRINT "2.6";
1014 :
1015 WINDOW 460,160,28,36:PAPER 0
1016 CSIZE 2,0:INK 7
1017 END DEFine 
1018 :
1019 DEFine PROCedure Press_Any_Key
1020 OVER -1
1021 REPeat lp
1022   AT 15,5:PRINT "Press ANY key to continue";
1023   x$=INKEY$(40)
1024   IF x$<>"" THEN EXIT lp
1025 END REPeat lp
1026 OVER 0: CLS 3
1027 END DEFine 
1028 :
1029 DEFine PROCedure Title_Line (text)
1030 PAPER 0: CLS
1031 AT 1,INT(18-(LEN(text)/2))
1032 UNDER 1:CSIZE 2,1:INK 4
1033 PRINT text
1034 UNDER 0:CSIZE 2,0:INK 7
1035 END DEFine 
1036 :
1037 DEFine PROCedure fsave (drive)
1038 LOCal x$: x$='Flp' & drive & '_' & prog$
1039 DELETE x$:SAVE x$
1040 END DEFine 
